Option Explicit
Sub C_Sample001()
    Dim myRng(1 To 5) As Range
    Dim i             As Long
    For i = 1 To 5
        Set myRng(i) = Cells(i, 1)			'wJؼxs
    Next
    Cells.Clear						'xs檺M
    'ǳƨ즹
    myRng(1).Value = 123 				'
    myRng(2).Value = 123.45			'p
    myRng(3).Value = "123" 			'ƦrrKQ@ƭȨӿJ
    With myRng(4)  					'ǰOA
        .Value = "1E5"
        .NumberFormatLocal = "G/qή榡"
    End With
   
 myRng(5).Value = 1E+15 				'ǰOB
	Erase myRng
End Sub

